home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / gcl-1.000 / gcl-1 / gcl-1.0 / cmpnew / cmpspecial.h < prev    next >
Encoding:
C/C++ Source or Header  |  1994-05-10  |  3.2 KB  |  119 lines
  1.  
  2. static L6();
  3. static object LI1();
  4. #define VMB1 object  V3;
  5. #define VMS1
  6. #define VMV1
  7. #define VMR1(VMT1) return(VMT1);
  8. static object LI2();
  9. #define VMB2 register object *base=vs_top;
  10. #define VMS2 vs_top += 2;
  11. #define VMV2 vs_reserve(2);
  12. #define VMR2(VMT2) vs_top=base ; return(VMT2);
  13. static object LI3();
  14. #define VMB3 object  V14;
  15. #define VMS3
  16. #define VMV3
  17. #define VMR3(VMT3) return(VMT3);
  18. static object LI4();
  19. #define VMB4 register object *base=vs_top; object  V25 ,V24 ,V23 ,V22 ,V21;
  20. #define VMS4  register object *sup=vs_top+1;vs_top=sup;
  21. #define VMV4 vs_reserve(1);
  22. #define VMR4(VMT4) vs_top=base ; return(VMT4);
  23. static object LI5();
  24. #define VMB5 register object *base=vs_top; object  V35 ,V33;
  25. #define VMS5  register object *sup=vs_top+3;vs_top=sup;
  26. #define VMV5 vs_reserve(3);
  27. #define VMR5(VMT5) vs_top=base ; return(VMT5);
  28. #define VC6
  29. static object LI7();
  30. #define VMB7 register object *base=vs_top; object  V48 ,V44;
  31. #define VMS7 vs_top += 4;
  32. #define VMV7 vs_reserve(4);
  33. #define VMR7(VMT7) vs_top=base ; return(VMT7);
  34. static object LI8();
  35. #define VMB8 object  V69 ,V68 ,V67 ,V64 ,V63 ,V62 ,V59 ,V57 ,V55;
  36. #define VMS8
  37. #define VMV8
  38. #define VMR8(VMT8) return(VMT8);
  39. static object LI9();
  40. #define VMB9
  41. #define VMS9
  42. #define VMV9
  43. #define VMR9(VMT9) return(VMT9);
  44. static object LI10();
  45. #define VMB10
  46. #define VMS10
  47. #define VMV10
  48. #define VMR10(VMT10) return(VMT10);
  49. #define VM10 0
  50. #define VM9 0
  51. #define VM8 0
  52. #define VM7 4
  53. #define VM6 5
  54. #define VM5 3
  55. #define VM4 1
  56. #define VM3 0
  57. #define VM2 2
  58. #define VM1 0
  59. static char * VVi[72]={
  60. #define Cdata VV[71]
  61. (char *)(LI1),
  62. (char *)(LI2),
  63. (char *)(LI3),
  64. (char *)(LI4),
  65. (char *)(LI5),
  66. (char *)(L6),
  67. (char *)(LI7),
  68. (char *)(LI8),
  69. (char *)(LI9),
  70. (char *)(LI10)
  71. };
  72. #define VV ((object *)VVi)
  73. static object  LnkTLI70() ;
  74. static object  (*LnkLI70)() = LnkTLI70;
  75. static object  LnkTLI69() ;
  76. static object  (*LnkLI69)() = LnkTLI69;
  77. static object  LnkTLI68() ;
  78. static object  (*LnkLI68)() = LnkTLI68;
  79. static object  LnkTLI67() ;
  80. static object  (*LnkLI67)() = LnkTLI67;
  81. static object  LnkTLI66() ;
  82. static object  (*LnkLI66)() = LnkTLI66;
  83. static object  LnkTLI65() ;
  84. static object  (*LnkLI65)() = LnkTLI65;
  85. static object  LnkTLI64() ;
  86. static object  (*LnkLI64)() = LnkTLI64;
  87. static object  LnkTLI63() ;
  88. static object  (*LnkLI63)() = LnkTLI63;
  89. static object  LnkTLI62() ;
  90. static object  (*LnkLI62)() = LnkTLI62;
  91. static object  LnkTLI61() ;
  92. static object  (*LnkLI61)() = LnkTLI61;
  93. static object  LnkTLI60() ;
  94. static object  (*LnkLI60)() = LnkTLI60;
  95. static  LnkT59() ;
  96. static  (*Lnk59)() = LnkT59;
  97. static object  LnkTLI58() ;
  98. static object  (*LnkLI58)() = LnkTLI58;
  99. static object  LnkTLI57() ;
  100. static object  (*LnkLI57)() = LnkTLI57;
  101. static object  LnkTLI56() ;
  102. static object  (*LnkLI56)() = LnkTLI56;
  103. static  LnkT55() ;
  104. static  (*Lnk55)() = LnkT55;
  105. static object  LnkTLI54() ;
  106. static object  (*LnkLI54)() = LnkTLI54;
  107. static object  LnkTLI53() ;
  108. static object  (*LnkLI53)() = LnkTLI53;
  109. static object  LnkTLI50() ;
  110. static object  (*LnkLI50)() = LnkTLI50;
  111. static object  LnkTLI48() ;
  112. static object  (*LnkLI48)() = LnkTLI48;
  113. static object  LnkTLI47() ;
  114. static object  (*LnkLI47)() = LnkTLI47;
  115. static object  LnkTLI46() ;
  116. static object  (*LnkLI46)() = LnkTLI46;
  117. static object  LnkTLI45() ;
  118. static object  (*LnkLI45)() = LnkTLI45;
  119.